APPENDIX A 



Dim Action As String 
Dim cllil As String 
Dim clli2 As String 
Dim Ansl As String 
Dim Ans2 As String 
Dim StrArrl(l) As String 
Dim StrArr2(l) As String 
Dim StrArr3(2) As String 
comparision 

Dim projectl As String 

Dim project2 As String 

Dim finding As String 

Dim tempDataArrl (999) As String 

Dim comparel (999) As String 

Dim answerl(999) As String 

Dim pagel(999) As String 

Dim tempDataArr2 (999) As String 

Dim compare2 (999) As String 

Dim answer2(999) As String 

Dim page2(999) As String 

Dim match As String 

Dim skip As String 
time 

Dim row As Integer 

script looking at PSIMS info 

Dim Command As String 

Dim cllititle As String 



'Determine how offices are compared 
! lst clli input for comparison 
f 2nd clli input for comparison 
1 office cllil job closed or not 
'office clli2 job closed or not 
'choice of yes or no 
'choice of yes or no 
'choice of Action to perform for 

■get cllil project number if needed 

'get clli2 project number if needed 

■ read the screen 

■all the software packages 

■grab software feature first time 

■yes or no of feature package 

•next page or end of page 

■all the software packages 

■grab software feature second time 

'yes or no of feature package 

'next page or end of page 

'match exists between offices for generic 
difference comparision 
' set up a skip variable to save 

•which row of the screen is the 

' Windows command to open Notepad . exe 
•Title column for table 



Sub Main 

Syshide "Timer" 

skip = "no" 

row = 15 
TryAgain: 

DlgStart 

DlgTitle "Compare 2 different offices of the same vendor" 
DlgltemType "Please click the bar you want and enter the information 
as needed . " 

StrArr3(0) = "Same features but opposite status" 
StrArr3(l) = "Same features and same status" 

StrArr3(2) = "Differences between generics but not same features" 
DlgltemButton "Compare How?", Action, 4, StrArr3 
DlgltemAsk "1st CLLI", cllil, 0, 11 
StrArrl(O) = "Yes" 
StrArrl(l) = "No" 

DlgltemRadio "If necessary answer question, is the current office 

conversion complete?", Ansl, 2, StrArrl 
DlgltemAsk "2nd CLLI", clli2, 1, 11 
StrArr2(0) = "Yes" 
StrArr2(l) = "No" 

DlgltemRadio "If necessary answer question, is the current office 

conversion complete?", Ans2, 3, StrArr2 
Dlglnquire 

DlgGetltemValue 0, cllil 
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DlgGetltemValue 1, clli2 
DlgGetltemValue 2, Ansl 
DlgGetltemValue 3, Ans2 
DlgGetltemValue 4, Action 

DlgEnd 

StrLen% = Len(cllil) 
If StrLen% < 11 Then 

MsgType "1st CLLI is inaccurate. Try Again" 

GoTo TryAgain 

End If 

StrLen% = Len(clli2) 
If StrLen% < 11 Then 

MsgType "2nd CLLI is inaccurate. Try Again" 

GoTo TryAgain 

End If 

Try 2 : 

projectl = "" 

If Ansl = "No" Then 

MsgAsk "Please input project number for 1st CLLI (Press Enter when 

finished) :", projectl, 10 
StrLen% = Len (projectl) 
If StrLen% < 10 Then 

MsgType "Project # is inaccurate. Try Again" 
GoTo Try2 

End If 

Else 

projectl = " <ERASEE0F> " 

End If 

Try 3 : 

project2 = "" 

If Ans2 = "No" Then 

MsgAsk "Please input project number for 2nd CLLI (Press Enter when 

finished) : " , project2 , 10 
StrLen% = Len(project2) 
If StrLen% < 10 Then 

MsgType "Project # is inaccurate. Try Again" 
GoTo Try3 

End If 

If skip = "yes" Then 
GoTo Finishl 

End If 

Else 

project2 = "<ERASEEOF>" 

End If 



EMSetCursor 3,16 
If Ansl = "No" Then 
EMSendKey "4.3 

Else 

EMSendKey "4.5 

End If 

EMSetCursor 5 , 8 
EMSendKey cllil 
EMSetCursor 5,31 
EMSendkey projectl 
EMSetCursor 6,13 
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EMSendkey "< ERASEEOFx ENTER >" 
SysDelay 2 

EMReadScreen finding, 4 , 2 , 2 
If finding = n G009 n Then 

MsgType "1st CLLI Code not valid" 

GoTo TryAgain 

End If 

If finding = "DO 03" Then 

MsgType "Must enter a project number for 1st CLLI office 

conversion. " 
An si = "No" 
GoTo Try2 

End If 

If finding = "M048" Then 

MsgType "Project # is inaccurate. Try Again" 
GoTo Try2 

End If 
_ Nextlinel: 
O For i = 0 to 999 

-Jj MoreLoopl : 

EMReadScreen finding, 52 , row, 2 
fj] tempDataArrl (i) = finding 

Q comparel(i) = left (finding, 10) 

Ijl pagel(i) = left (finding, 7) 

£7 If pagel(i) = "More..." Then 

k*. row = 15 

m EMSendKey " < PF8 > " 

^ EMWaitCursor TimeOut ,3,16 

\J If NM_ResultCode = 2 Then 

y3 Goto HandelError 

fU End If 

jg GoTo MoreLoopl 

g End If 

[T If pagel(i) = "END " Then 

row = 15 
GoTo Finishl 

End If 

EMReadScreen finding, 1 , row, 59 
ans wer 1 ( i ) = f inding 
row = row + 1 
Next i 
Finishl: 

EMSetCursor 3,16 
If Ans2 = "No" Then 

EMSendKey "4.3" 

Else 

EMSendKey "4.5" 

End If 

EMSetCursor 5 , 8 

EMSendKey clli2 

EMSetCursor 5,31 

EMSendkey project2 

EMSetCursor 6 , 13 

EMSendkey " < ERASEEOFx ENTER > " 

SysDelay 2 

EMReadScreen finding ,4,2,2 
If finding = "GO 09" Then 
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MsgType "2nd CLLI Code not valid" 
GoTo TryAgain 

End If 

If finding = "D003" Then 

MsgType "Must enter a project number for 2nd CLLI office 

conversion. " 
Ans2 = "No" 
skip = "yes" 
GoTo Try3 

End If 

If finding = "M048" Then 

MsgType "Project # is inaccurate. Try Again" 
skip = "yes" 
GoTo Try3 

End If 
Nextline2 : 

For i = 0 to 999 
MoreLoop2 : 

EMReadScreen finding, 52 , row, 2 

tempDataArr2 (i) = finding 

compare2(i) = left (finding, 10) 

page2(i) = left (finding, 7) 

If page2 (i) = "More. . . " Then 
row = 15 

EMSendKey "<PF8>" 
EMWaitCursor TimeOut , 3 , 16 
If NM_ResultCode = 2 Then 
Goto HandelError 

End If 

GoTo MoreLoop2 

End If 

If page2(i) = "END " Then 
row = 15 
GoTo Finish2 

End If 

EMReadScreen finding, 1, row, 5 9 
answer2(i) = finding, 
row = row + 1 
Next i 
Finish2 : 

If Action = "Same features but opposite status" Then 
Opposites 

End If 

If Action = "Same features and same status" Then 
Same 

End If 

If Action = "Differences between generics but not same features" Then 
Differences 

End If 
Stop 
HandelError: 

Print "Error receiving text or cursor postion. Script terminated." 
End Sub 

Sub Opposites 

FileWrite "compare.txt", "Compare same feature packages with an 
opposite 
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status between offices" 
cllititle = " " & cllil & " " & 

clli2 

FileAppend cllititle 

Samel : 

For i = 0 to 999 

If comparel(i) = "END 11 Then 

GoTo Finish3 

End If 
InSamel : 

For j = 0 to 999 

If compare2(i) = "END " Then 

GoTo Out Samel 

End If 

If comparel(i) = compare2(j) Then 

If answerl(i) = answer2(j) Then 
GoTo Out Samel 

Else 

tempDataArr 1 ( i ) = tempDataArrl (i) & " " & Answerl(i) 

& " " & Answer2 ( j ) 

FileAppend tempDataArrl ( i ) 
GoTo Out Samel 

End If 

End If 

Next j 
Out Samel : 

Next i 
Finish3 : 

Command = " NOTEPAD . EXE " 

Command = Command & "compare.txt" 

SysWinExec command 
End Sub 

Sub Same 

FileWrite "compare.txt", "Compare same feature packages with the same 

status between offices" 
cllititle = " " & cllil & " " & 

clli2 

FileAppend cllititle 

Same2 : 

For i = 0 to 999 

If comparel(i) = "END " Then 

GoTo Finish4 

End If 
InSame2 : 

For j = 0 to 999 

If compare2{i) = "END " Then 

GoTo 0utSame2 

End If 

If comparel(i) = compare2(j) Then 

If answerl(i) = answer2(j) Then 

tempDataArr 1 ( i ) = tempDataArrl ( i ) & " " & Answerl(i) 

& " " & Answer2(jj 

FileAppend tempDataArrl (i) 
GoTo 0utSame2 

Else 

GoTo Out Same 2 
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# 

End If 

End If 

Next j 
Out Same 2 : 

Next i 
Finish4 : 

Command = "NOTEPAD . EXE " 

Command = Command & n compare . txt " 

SysWinExec command 
End Sub 
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Sub Differences 

FileWrite "compare.txt", "Compare generic differences only eliminating 

common feature packages" 
cllititle = " 



& clli2 
FileAppend cllititle 

Same3 : 

For i = 0 to 999 
match = n N" 

If comparel(i) = "END " Then 

GoTo FinishS 

End If 
InSame3 : 

For j = 0 to 999 

If compare2(i) = "END " Then 

GoTo OutSame3 

End If 

If comparel(i) = compare2(j) Then 
match = "Y" 
GoTo Out Same 3 

End If 

Next j 
0utSame3 : 

If Match = "N" Then 

tempDataArrl ( i ) = tempDataArr 1 ( i ) & 
FileAppend tempDataArrl (i) 

End If 

Next i 
FinishS : 
Same 4 : 

For k = 0 to 999 
match = n N" 

If compare2(k) = " END " Then 

GoTo Finish6 

End If 
InSame4 : 

For 1 = 0 to 999 

If comparel(k) = "END " Then 

GoTo 0utSame4 

End If 

If compare2(k) = comparel(l) Then 
match = »Y" 
GoTo 0utSame4 

End If 
Next 1 
0utSame4 : 



& cllil & 



" & Answerl(i) 
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If Match = "N" Then 

tempDataArr2 (k) = tempDataArr2 (k) 

& Answer2 (k) 
FileAppend tempDataArr2 (k) 

End If 

Next k 
Finish6 : 

Command = "NOTEPAD. EXE " 

Command = Command & " compare . txt " 

SysWinExec command 
End Sub 
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